-- card: 4760 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: Days
----- HyperTalk script -----
on idle
  put the time into field 4
end idle

on opencard
  global lastday
  put lastday into field "laston"
  put the abbrev date into field "now"
end opencard


-- part 2 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=57 top=67 right=182 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=18 top=196 right=218 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract a day
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"-"&return
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=147 top=196 right=218 bottom=247
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add a day
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"+"&return
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=276 top=196 right=218 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today's date
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"s"&return
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=395 top=196 right=218 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit/Done
----- HyperTalk script -----
on mouseUp
  global port
  sendSPort port,false,"q"&return
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=31 right=68 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 21060 / 21060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part contents for background part 1
----- text -----





Sat, Jul 2, 1988, 6:53 PM

-- part contents for background part 5
----- text -----
9:00 PM

-- part contents for background part 4
----- text -----
Thu, Sep 22, 1988

-- part contents for card part 2
----- text -----
*******
Welcome, Phil Smy, from Ottawa!
Connected on 07/11/88 at 15:50:25
You have called this system 59 times.
You last called on 07/06/88 at 12:28:54
You have uploaded 1 files and have downloaded 7 files.
You have sent 17 private messages and 3 public messages.

E 


   [A]dd this section to global scan
 


-- part contents for background part 3
----- text -----
Thu, Sep 22, 1988, 9:08 AM